﻿Public Class frmErrorDelete

#Region "Declare"

    Private Const m_sCodeFieldName As String = "CodeValue"
    Private m_sCodeFieldCaption As String

#End Region

#Region "Property"

    Public Property CodeFieldCaption() As String
        Get
            Return m_sCodeFieldCaption
        End Get
        Set(ByVal value As String)
            m_sCodeFieldCaption = value
        End Set
    End Property

    Public Property DataSource() As DataSetLocal
        Get
            Return dsLocal
        End Get
        Set(ByVal value As DataSetLocal)
            dsLocal = value
            If value IsNot Nothing Then
                bsList.DataSource = dsLocal
            End If
        End Set
    End Property

#End Region

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
    End Sub


#Region "Method"


#End Region

#Region "Events"

    Private Sub frmErrorDelete_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Try
            grdList.DisplayLayout.Bands(0).Columns(m_sCodeFieldName).Header.Caption = m_sCodeFieldCaption
        Catch ex As Exception
            CommonFunction.ShowExceptionMessage(ex)
        End Try
    End Sub

#End Region
End Class